<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in</name>
<id>-1</id>
<cardCount>30</cardCount>
<cardID>8152</cardID>
<listID>5591</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>512</width>
<height>342</height>
</cardSize>
<script>--------------------------------------------------------------------- HyperTree II Help Stack Scripts-- (c) CopyRight 1992 John Washburn-- All Rights Reserved---- Eleven External Commands have been included in this stack.-- "ObjectExists", "PICTFileToRes", "ResList", "PopList" & "PictureHide"-- are copright 1989 by the Trustees of Dartmouth College.-- "IsResource", "ClipToPICT" & "PictureShow" are copyright 1988-1989-- by the Trustees of Dartmouth College.-- Two others are "PopList" & "SortFieldByItem" which were copyrighted-- by Digital Medicine in 1989.-- "ResDelete" was written by Leonard Buck.-- "HPopUpMenu" was written by Guy de Picciotto.-------------------------------------------------------------------on CFTchoose field toolend CFTon CBTchoose browse toolend CBTon CBTNTchoose button toolend CBTNTon SMshow menubarend SMon HMhide menubarend HMon lockAllFieldsrepeat with cardNum = 1 to number of cardsgo to card cardNumrepeat with fieldNum = 1 to the number of card fieldsset the locktext of card field fieldNum to trueend repeatend repeatend lockAllFieldson unlockAllFieldsrepeat with cardNum = 1 to number of cardsgo to card cardNumrepeat with fieldNum = 1 to the number of card fieldsset the locktext of card field fieldNum to falseend repeatend repeatend unlockAllFieldson writeFieldstoTextFileask file "Give me the what and where of the text file!" with "AllFieldsText"put it into fileNameopen file fileNameif the result is not empty thenput the resultelserepeat with cardNum = 1 to number of cardsgo to card cardNumrepeat with fieldNum = 1 to the number of card fieldswrite card field fieldNum to file fileNamewrite return to file fileNameend repeatend repeatclose file fileNameend ifend writeFieldstoTextFileon printregistrationprint card field "Registration" of card "Main Menu"end printregistrationon openCardglobal hideShowIndicatorif hideShowIndicator is "SHOW"thenshow menubarelsehide menuBarend ifpass openCardend openCardon menuChoiceglobal hideShowIndicatoranswer "Do you want the menubar to always show or hide?" with "SHOW" or "HIDE"put it into card field "hideShowStore" of card 1if it is "SHOW"thenshow menubarput "SHOW" into hideShowIndicatorelsehide menubarput "HIDE" into hideShowIndicatorend ifend menuChoice</script>
